home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / probots.arc / BLASTER.PR < prev    next >
Text File  |  1991-04-28  |  1KB  |  36 lines
  1. PROCEDURE blaster; {LOOK OUT!}
  2.  
  3.   VAR
  4.     direction,degrees,range,speed,counter,old_damage : integer;
  5.     distance,heading,corner_number,x,y,old_range : integer;
  6.  
  7. PROCEDURE blastem(VAR degrees,range,counter:integer);
  8.   begin
  9.     REPEAT                              {until hit}
  10.     range:=scan(degrees,5);
  11.     IF (range<>0) THEN                  {anything there?}
  12.       begin
  13.         IF (range>=700) THEN            {out of range?}
  14.           begin
  15.             REPEAT
  16.               drive(degrees,100);       {get'em in range!}
  17.               distance:=scan(degrees,5);
  18.             UNTIL distance < 700;
  19.             drive(degrees,0);
  20.           end;
  21.         REPEAT                          {he's in range!! BLASTEM!!}
  22.           cannon(degrees,range);
  23.           counter:=counter+1;
  24.         UNTIL counter>=30;
  25.       end
  26.     ELSE degrees:=(degrees+10) MOD 360; {increment scan direction}
  27.     UNTIL DEAD or Winner;                {make UNTIL HIT}
  28.   end;
  29.  
  30.   BEGIN {Main joe}
  31.       degrees := 5;                      {put in infinite loop}
  32.       counter:=0;
  33.       blastem(degrees,range,counter);    {add movement commands after here}
  34.   end;                                   {for when the robot is injured}
  35.                                          {preferably a random spot on screen}
  36.